home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Shareware World / Shareware Feature / GifBuilder 0.5 / Sample Scripts / BeachBall sample script
Encoding:
Text File  |  1996-03-25  |  829 b   |  29 lines  |  [TEXT/ToyS]
  1. property w : 80
  2. property h : 80
  3. property red : {65535, 0, 0}
  4. property blue : {0, 0, 65535}
  5. property green : {0, 65535, 0}
  6. property yellow : {65535, 65535, 0}
  7. property step : 20
  8.  
  9. tell application "clip2gif"
  10.     set l to {}
  11.     save {w, h} in window -- creates a new window
  12.     repeat with i from 0 to 360 - step by step
  13.         save {w, h} in window 1 ¬
  14.             drawing {{chart data:{i, blue, 90, blue, 90, yellow, 90, red, 90, green}, chart style:pie, position:{0, 0, w, h}}}
  15.         set end of l to content of window 1
  16.     end repeat
  17. end tell
  18.  
  19. tell application "GifBuilder"
  20.     new
  21.     repeat with p in l
  22.         make new frame at end with data {contents:(p as item), transparency:first pixel, disposal method:no, interframe delay:10}
  23.     end repeat
  24.     set depth to 4
  25.     set color table to system colors
  26.     set loop to 0
  27.     save in (new file default name "multigif.gif")
  28. end tell
  29.